home *** CD-ROM | disk | FTP | other *** search
/ My Neighborhood / My Neighborhood.iso / mac / MacFiles / PetMove.Dxr / 00013.ls < prev    next >
Encoding:
Text File  |  1997-11-18  |  305 b   |  14 lines
  1. on walrusTalk soundFile
  2.   puppetSound(soundFile)
  3.   updateStage()
  4.   repeat while soundBusy(1)
  5.     set temp to random(4)
  6.     set walrusHead to the number of cast ("walrus" & temp)
  7.     set the castNum of sprite 10 to walrusHead
  8.     updateStage()
  9.     wait(6)
  10.   end repeat
  11.   puppetSound(0)
  12.   updateStage()
  13. end
  14.